www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_B_do_htm_down.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->

<!--#include file=../../inc/ND_class_function.asp-->


<!--#include file=inc_lanmu_blb.asp-->

<!--#include file=makehtm_inc/clsCachea.asp-->


<%
is_cmsa=1

if cstr(request("isqiye")&"")="1" then
is_cmsa=0
end if


Set myCache=new clsCache_b
CacheTemp="nd_htm_"
   myCache.name=CacheTemp & "nd_cid_var_name"
   Call myCache.clean()
         myCache.add request("cnnn"),Dateadd("h",2999,now())
		 
      myCache.name=CacheTemp & "nd_pdid_var_name"
   Call myCache.clean()
         myCache.add request("cnnnn"),Dateadd("h",2999,now())
		
		
      myCache.name=CacheTemp & "nd_arid_var_name"
   Call myCache.clean()
         myCache.add request("arnnn"),Dateadd("h",2999,now())
		
      myCache.name=CacheTemp & "nd_zid_var_name"
   Call myCache.clean()
         myCache.add request("znnn"),Dateadd("h",2999,now())
		
								
		
set myCache=nothing




dowhata=cstr(request("dowhat"))
sys_content_type=trim(request("sys_content_type"))




if dowhata="10" then


response.redirect "D_goto_make_all_htm.asp?isqiye="&request("isqiye")
response.end
end if



if dowhata="11" then


response.redirect "D_goto_make_all_htm_by_conutiue.asp?isqiye="&request("isqiye")
response.end
end if




if dowhata="7" then
pageaa="$page$down_index_page$"
pageaa=replace_webfiles_names(pageaa,is_cmsa)
response.redirect "D_goto_make_danpage_htm.asp?cids="&sys_content_type&"&page="&pageaa&"&func=pindao_index"&"&isqiye="&request("isqiye")
response.end
end if




if dowhata="9" then
pageaa="$page$main_index_page$"
pageaa=replace_webfiles_names(pageaa,is_cmsa)
response.redirect "D_goto_make_danpage_htm.asp?cids="&sys_content_type&"&page="&pageaa&"&func=indexpage"&"&isqiye="&request("isqiye")
response.end
end if



if dowhata="8" then
pageaa1="$page$new_down_page$"
pageaa1=replace_webfiles_names(pageaa1,is_cmsa)
pageaa2="$page$tj_down_page$"
pageaa2=replace_webfiles_names(pageaa2,is_cmsa)
pageaa3="$page$hot_down_page$"
pageaa3=replace_webfiles_names(pageaa3,is_cmsa)
response.redirect "D_goto_make_zhuanti_htm.asp?cids="&sys_content_type&"&page="&pageaa1&"|"&pageaa2&"|"&pageaa3&"&isqiye="&request("isqiye")
response.end
end if





if dowhata="12" then
response.redirect "D_htm_x_zhuanti.asp?sys_content_type="&sys_content_type&"&isqiye="&request("isqiye")
response.end
end if




if dowhata="1" or dowhata="5" then
pageaa="$page$down_class_page$"
end if
if dowhata="2" or dowhata="3"  or dowhata="4" then
pageaa="$page$down_view_page$"
end if
pageaa=replace_webfiles_names(pageaa,is_cmsa)

cids=""
for i=1 to clng(request("len1"))
aa1=cstr(request("htmcl_"&cstr(i))&"")
if aa1<>"" then
cids=cids&aa1&","
end if
next
if cids<>"" then
cids=left(cids,len(cids)-1)


if dowhata="2" then
response.redirect "D_goto_make_art_view_htm_by_cids.asp?cids="&cids&"&page="&pageaa&"&isqiye="&request("isqiye")

end if


if dowhata="1" then
response.redirect "D_goto_make_htm_by_cids.asp?cids="&cids&"&page="&pageaa&"&isqiye="&request("isqiye")

end if
if dowhata="3" then
response.redirect "D_goto_make_new_art_view_htm_by_cids.asp?cids="&cids&"&page="&pageaa&"&isqiye="&request("isqiye")

end if

if dowhata="5" then
response.redirect "D_goto_make_new_htm_by_cids.asp?cids="&cids&"&page="&pageaa&"&isqiye="&request("isqiye")

end if




else
%>
<script language="javascript">
alert("请至少选中一个分类");
history.go(-1);
</script>
<%
end if


%>